﻿Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'START OF TESTING'
        Dim test As Integer = 0
        test = test + 1 '1'
        test = test - 1 '0'
        test = test - 1 '-1'
        test = test + 2 '1'
        test = test - 2 '-1'
        test = test - 10 '-11
        test = test + 10 '-1'
        test = test + 11 '10'
        test = test - 11 '-1'
        'END OF TESTING'
        'START OF GRADING'
        If test < -1 Or test > -1 Then
            MsgBox("TEST has failed. Please click CANCEL to exit the program.  If you click OK, the program may still work. TEST = " & test & "But should be -1")
        End If
        'END OF GRADING'
    End Sub

    Private Sub Q1NB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q1NB.Click
        impulse_resist = impulse_resist + 1 'Adds 1 to the impulse resist setting'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q1B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q1B2.Click
        impulse_resist = impulse_resist - 1 'Takes 1 away from impulse resist , setting it to -1'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q2B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q2B1.Click
        angry = angry - 1 'Not Angry, Master of Emotions, Takes 1 from angry'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q2B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q2B2.Click
        angry = angry + 1 'Angry, Not As Angry as Q2B3, Though'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q2B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q2B3.Click
        angry = angry + 2 'very angry!!!'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q3B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q3B1.Click
        nice = nice + 1 'nice'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Q3B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Q3B2.Click
        nice = nice - 1 'not nice'
        MsgBox("Thank You, We Have Recorded That")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class
